/*
 *  math.ss
 */

#define pow			\
	1 sub			\
	while			\
		cycle		\
		dup rcycle	\
		1 sub		\
	wend			\
	pop			\
	0 cycle			\
	swap			\
	while			\
		mul swap	\
	wend			\
	pop

